(Finsert_char): Check QUIT.

diff --git a/src/editfns.c b/src/editfns.c
index 0506e37ef50906340cb093b35ba22f52b1ef3e5b..ad331e9623b6dfc6a00af11d71b65b0cb6428bf2 100644 (file)
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -1381,6 +1381,7 @@ from adjoining text, if those properties are sticky.")
     string[i] = str[i % len];
   while (n >= strlen)
     {
+      QUIT;
       if (!NILP (inherit))
        insert_and_inherit (string, strlen);
       else